<!--#include file="Firewall.asp"-->
<!--#include file="Ini.asp"-->

<%
sCONTADOR = Request("CONTADOR") 
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open sCo1, sCo2, sCo3
  sEMISSAO =  MONTH(NOW) & "/" & DAY(NOW) & "/" & YEAR(NOW) & " " & HOUR(NOW) & ":" & MINUTE(NOW) & ":" & SECOND(NOW)
  ESCOLA=REQUEST("ESCOLA")
  TELEFONE=REQUEST("TELEFONE")
  DDD=REQUEST("DDD")
  CONTATO=REQUEST("CONTATO")
  OBS=REQUEST("OBS")
  EMAIL=REQUEST("EMAIL")

 sSql = "Update PNLD_2010_ESCOLAS Set  TELEFONE = '"& TELEFONE &"'" &_
           ", DDD= '"& DDD &"'" &_
           ", CONTATO= '"& CONTATO &"'" &_
           ", OBS= '"& OBS &"'" &_
           ", EMAIL= '"& EMAIL &"'" &_
           " Where CODESC = '" & ESCOLA  &"'"
'RESPONSE.WRITE SSQL
'RESPONSE.END

    Conn.Execute(sSql)	

  SSQL= "INSERT INTO PNLD_2010_VISITAS(CODESC,VISITA,INCLUIDOR)"&_
	" VALUES('"& ESCOLA &"','"& sEMISSAO &"','"& SESSION("USUARIO") &"')"
    Conn.Execute(sSql)	

Conn.Close : Set Conn = Nothing
Response.Redirect "pnld_13_incluir.asp?ESCOLA="&ESCOLA
%>
</body>
</html>